home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Game / T / Teds BlackJackTutor1.2.4.cpt / Teds BlackJackTutor1.2.4 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-06-13  |  6KB  |  48 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.4</name>
  5.     <id>-1</id>
  6.     <cardCount>21</cardCount>
  7.     <cardID>3935</cardID>
  8.     <listID>16383</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on OpenStackglobal NDecks,Nplayers,ManWoman,FirstTime,StartPlayer,Soft17,OldUserLevelif the rect of card window is the screenRect then hide menubarput the userlevel into OldUserLevelset the userlevel to 3put "Sir" into ManWomanput 3 into NPlayersput 2 into Ndecksput 1 into StartPlayergo card 1repeat 5 timesgo nextwait 15 ticksend repeatwait 1 secondIf field "Registered" is Empty thenput card field "AskForMoney" into AskForMoneyAnswer AskForMoney with "Not Yet" or "Register"if it is "Register" thenAsk "Please enter your registration number."If it is in field "Registration Number" thenput it into field "Registered"put card field "Thank You" into ThankYouAnswer Thankyouend ifif Field "FirstTime" is True thenput field "UserName" into WhoItIsAsk "Please Type your name for our records." with WhoItIsAsk "Verify that this is correct:" with itput it into field "UserName"put "False" into field "FirstTime"end ifend ifend ifif field "UserName" is not empty then put field "UserName" into ManWoman--Dealer soft 17 - assume dealer hits soft 17put 18 into Soft17end Openstackon CloseStacklock screenglobal OldUserLevelset the userlevel to olduserlevelshow menubargo card "Basic Strategy"put true into field "FirstTime"repeat with x = 1 to the number of cards in bg "Algorithm"go card x of bg "Algorithm"hide field "TheCount"end repeatrepeat with x = 1 to the number of cards in bg "Practice Hands"go card x of bg "Practice Hands"put false into field "Been Here"end repeatif the freesize of this stack > (size of this stack/5) thenDoMenu "Compact Stack"end ifshow menubarunlock screenpass closestackend CloseStackon GoGetHelpGlobal HesInHereif HesInHere is empty then exit GoGetHelplock screenset lockmessages to truepush cardset cursor to watchput "Getting Help, Please wait..."go card "Help"find string HesInHere in field "Help Notes"if the foundchunk is empty thenpop cardAsk "Sorry, no help available for:" with HesInHereexit GoGetHelpend ifput word 2 of the foundline into FirstLinefind string "End Note"put word 2 of the foundline into SecondLineput line FirstLine + 1 to SecondLine - 1 of field "Help Notes"  into HelpNotespop cardDoMenu "New Field"put the number of card fields into AddOneput "71,58,436,295"  into FieldRectset the name of card field AddONe to "Help"set the rect of card field AddOne to FieldRectput "On MouseUp"  & return & "Lock Screen" & return &¬¨"Choose the field Tool" & return & "select me" & return & "DoMenu" && quote & "Clear Field" & quote & return &¬¨"Choose the browse tool" & return &¬¨"unlock screen with visual shrink to bottom" & return &¬¨"End MouseUp" into FieldScriptset the script of card field AddOne to FieldScriptSet the locktext of card field AddONe to trueSet the widemargins of card field AddOne to trueset the style of card field AddONe to scrollingput "Help" & return & return into card field AddOneput HelpNotes after card Field AddOneset the scroll of card field AddONe to 0unlock screen with visual shrink to topput empty into HesInHereHide msgchoose the Browse Toolend GoGetHelp</script>
  17.     <background id="3725" file="background_3725.xml" name="Training" />
  18.     <background id="5219" file="background_5219.xml" name="Playing Strategies" />
  19.     <background id="6358" file="background_6358.xml" name="Algorithm" />
  20.     <background id="6745" file="background_6745.xml" name="Basic" />
  21.     <background id="7161" file="background_7161.xml" name="Practice Hands" />
  22.     <background id="8481" file="background_8481.xml" name="" />
  23.     <background id="8798" file="background_8798.xml" name="" />
  24.     <background id="12942" file="background_12942.xml" name="" />
  25.     <background id="13729" file="background_13729.xml" name="Instructions" />
  26.     <card id="3935" file="card_3935.xml" marked="false" name="" owner="3725" />
  27.     <card id="7316" file="card_7316.xml" marked="false" name="" owner="3725" />
  28.     <card id="7547" file="card_7547.xml" marked="false" name="" owner="3725" />
  29.     <card id="2858" file="card_2858.xml" marked="false" name="" owner="3725" />
  30.     <card id="4382" file="card_4382.xml" marked="false" name="" owner="3725" />
  31.     <card id="4731" file="card_4731.xml" marked="false" name="" owner="3725" />
  32.     <card id="9581" file="card_9581.xml" marked="false" name="Index" owner="8481" />
  33.     <card id="5394" file="card_5394.xml" marked="false" name="Playing Strategies" owner="5219" />
  34.     <card id="10143" file="card_10143.xml" marked="false" name="Strategy - Hard Hands" owner="5219" />
  35.     <card id="7781" file="card_7781.xml" marked="false" name="Strategy - Soft Hands" owner="5219" />
  36.     <card id="8293" file="card_8293.xml" marked="false" name="" owner="5219" />
  37.     <card id="13315" file="card_13315.xml" marked="false" name="Simulation Set Up" owner="13729" />
  38.     <card id="9836" file="card_9836.xml" marked="false" name="" owner="13729" />
  39.     <card id="14573" file="card_14573.xml" marked="false" name="" owner="13729" />
  40.     <card id="11423" file="card_11423.xml" marked="true" name="Practice Plays 1" owner="7161" />
  41.     <card id="12226" file="card_12226.xml" marked="true" name="Practice Plays 2" owner="7161" />
  42.     <card id="9298" file="card_9298.xml" marked="true" name="Practice Counts" owner="7161" />
  43.     <card id="6563" file="card_6563.xml" marked="false" name="Table1" owner="6358" />
  44.     <card id="6059" file="card_6059.xml" marked="false" name="Basic Strategy" owner="6745" />
  45.     <card id="15076" file="card_15076.xml" marked="false" name="Help" owner="8798" />
  46.     <card id="12663" file="card_12663.xml" marked="false" name="ShareWare" owner="12942" />
  47. </stack>
  48.